home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / vm / vm-user.el.z / vm-user.el
Encoding:
Text File  |  1998-05-21  |  2.0 KB  |  55 lines
  1. ;;; Interface functions to VM internal data
  2. ;;; Copyright (C) 1997 Kyle E. Jones
  3. ;;;
  4. ;;; This program is free software; you can redistribute it and/or modify
  5. ;;; it under the terms of the GNU General Public License as published by
  6. ;;; the Free Software Foundation; either version 2, or (at your option)
  7. ;;; any later version.
  8. ;;;
  9. ;;; This program is distributed in the hope that it will be useful,
  10. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ;;; GNU General Public License for more details.
  13. ;;;
  14. ;;; You should have received a copy of the GNU General Public License
  15. ;;; along with this program; if not, write to the Free Software
  16. ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17.  
  18. (provide 'vm-user)
  19.  
  20. (defun vm-user-composition-folder-buffer ()
  21.   "Returns the folder buffer associated with the current buffer.
  22. The current buffer must be a composition buffer created by VM for
  23. a reply, resend or forward.
  24.  
  25. Nil is returned if the current buffer is not assocaited with any
  26. VM folder.
  27.  
  28. Note that the buffer returned might be a virtual folder buffer,
  29. which might have several underlying real folders associated with
  30. it.  To get the list of real folder buffers associated with a
  31. composition buffer, use vm-user-composition-real-folder-buffers
  32. instead."
  33.   (if (eq major-mode 'mail-mode)
  34.       vm-mail-buffer
  35.     nil ))
  36.  
  37. (defun vm-user-composition-real-folder-buffers ()
  38.   "Returns a list of the real folder buffers associated with the current
  39. buffer.  The current buffer must be a composition buffer created
  40. by VM for a reply, resend or forward."
  41.   (if (eq major-mode 'mail-mode)
  42.       (let ((list nil) (newlist nil))
  43.     (cond ((eq vm-system-state 'replying)
  44.            (setq list vm-reply-list))
  45.           ((eq vm-system-state 'forwarding)
  46.            (setq list vm-forward-list))
  47.           ((eq vm-system-state 'redistributing)
  48.            (setq list vm-redistribute-list)))
  49.     (while list
  50.       (setq newlist (cons (vm-buffer-of (vm-real-message-of (car list)))
  51.                   newlist)
  52.         list (cdr list)))
  53.     newlist )
  54.     nil ))
  55.